home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / pascal / filedll.com / TESTFDLL.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-04-23  |  370 b   |  21 lines
  1. Program DLLTest;
  2.  
  3. uses WinTypes;
  4. function DoFileDialog(Window: Word;
  5.   FilePath, DialogName, Caption: PChar): Boolean; far; external 'fdlgdll' index 1;
  6.  
  7. var
  8. n       : integer;
  9.  
  10. aName,
  11. aPath,
  12. aCaption: pChar;
  13.  
  14. begin
  15.      aPath := 'f:\*.*';
  16.      aName := 'FileOpen';
  17.      aCaption := 'Open Default';
  18.      DofileDialog(0, aPath, aName, aCaption);
  19. end.
  20.  
  21.